Метод ReplaceLine.

Замещает одну строку программы другой.

Синтаксис
объект.ReplaceLine(строка, текст)

Параметры
объект
Обязательный. Объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение".
строка
Обязательный. Переменная типа Long, указывающая номер строки, которую надо заменить другой.
текст
Обязательный. Переменная типа String, содержащая вставляемую строку.

Пример
Следующий пример состоит из двух частей. Первый цикл For…Next с помощью метода InsertLines вставляет в область окна программы CodePanes(1) 26 последовательно удлиняющихся сегментов латинского алфавита, начиная с буквы "a". Последний вставленный сегмент представляет собой весь алфавит.
Второй цикл For…Next с помощью метода ReplaceLine замещает строку с четным номером последним символом текста, который содержался в этой строке ранее. Строки с нечетными номерами не изменяются.

For I = 1 to 26
	Application.VBE.CodePanes(1).CodeModule.InsertLines I, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I)
Next I
For I = 1 to 13
	Application.VBE.CodePanes(1).CodeModule.ReplaceLine 2*I, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I)
Next I
Hosted by uCoz